home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / MODEMPRO / ROBO42-A.ZIP;1 / VAMPIRE.RS < prev    next >
Encoding:
Text File  |  1992-07-23  |  1.9 KB  |  62 lines
  1. ; VAMPIRE.rs -- Robocomm script to download as many new files
  2. ; as possible from a BBS as quickly as possible.  Robo will add
  3. ; descriptions of files downloaded to the downloaded files
  4. ; directory.  NOTE: any file which currently exists in your
  5. ; configured download,upload or search directories will be
  6. ; skipped during the batch download.
  7.  
  8. TITLE "Downloads all new files w/descriptions (PCBoard)"
  9. PARAMETER 1 "Directories to scan (blank=all)"
  10. PARAMETER 2 "Conference Number (not name)"
  11. ENDPARAMS
  12.  
  13.     MESSAGE "VAMPIRE -- Sucking down all new files in sight!"
  14.  
  15.     ; Make sure we are where we want to be.
  16.     VENUE MAIN
  17.     IF NOT EMPTY "%P2%" JOIN "%P2%"
  18.  
  19.     ; Send the command to scan and flag all new files.
  20.     ; Only one of these two will be executed.
  21.     IF EMPTY "%P1%" SEND "N;S;A;D;NS|"
  22.     IF NOT EMPTY "%P1%" SEND "N;S;%P1%;D;NS|"
  23.  
  24.     ; Open a capture file for the descriptions.
  25.     CAPTURE "VAMPIRE.LST" OVERWRITE
  26.  
  27.     ; Wait for either main board or conference command prompt
  28.     ; to come back up.
  29.     IF EMPTY "%P2%" WAITFOR "%BBS35%"
  30.     IF NOT EMPTY "%P2%" WAITFOR "%BBS36%"
  31.  
  32.     ; Close the capture file
  33.     CLOSE
  34.  
  35.     ; Request the download
  36.     SEND "DB;Z|"
  37.  
  38.     ; See if we got anything
  39.     WHEN "FLAGGED FILES" SEND "Y|||"
  40.     WHEN "(1) ENTER" GOTO NOFILES
  41.     WAITFOR "START YOUR DOWNLOAD"
  42.  
  43.     ; "Download" with no arguments uses configured protocol and sends the files
  44.     ; to the configured download directory.  Any file that already exists in the
  45.     ; download directory will be automatically skipped by the INTERNAL protocol
  46.     DOWNLOAD USING "ZMODEM"
  47.  
  48.     ; Add the descriptions to the downloads database, only for those files
  49.     ; that were successfully downloaded.
  50.     IMPORT "D" "VAMPIRE.LST" EXISTONLY
  51.     ERASE "VAMPIRE.LST"
  52.  
  53.     VENUE MAIN
  54.  
  55. :SUCCESS
  56.     EXIT 0
  57.  
  58. :NOFILES
  59.     MESSAGE "No new files to download"
  60.     SEND "|||"
  61.     GOTO SUCCESS
  62.